SetDay Subroutine

public subroutine SetDay(day, time)

Set the day of the datetime represented by this instance

Arguments

Type IntentOptional Attributes Name
integer(kind=short), intent(in) :: day
type(DateTime), intent(out) :: time

Source Code

SUBROUTINE  SetDay &
!
(day, time)

IMPLICIT NONE

! Arguments with intent(in):
INTEGER (KIND = short), INTENT(IN) :: day

! Arguments with intent(out):
TYPE (DateTime), INTENT(OUT) :: time

!------------end of declaration------------------------------------------------

time % day = day

CALL DateCheck (time)

END SUBROUTINE SetDay